BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / SystemCode / browser.tcl < prev next >

MacBinary | 1994-03-08 | 1.6 KB | [TEXT/ALFA]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Mar 8 16:46:09 1994, modified Tue Mar 8 16:46:09 1994, creator Alpha editor, type ASCII, 1138 bytes "browser.tcl" , at 0x4f2 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ALFA]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 62 72 6f 77 73 65 | 72 2e 74 63 6c 00 00 00 |..browse|r.tcl...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 04 72 00 | 00 01 7e a9 a2 a2 a1 a9 |......r.|..~.....|
|00000060| a2 a2 a1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0a 14 00 00 |........|........|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|000000d0| 20 42 72 6f 77 73 65 72 | 20 6d 6f 64 65 2e 0d 23 | Browser| mode..#|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 70 72 |========|=====.pr|
|00000130| 6f 63 20 75 70 42 72 6f | 77 73 65 20 7b 7d 20 7b |oc upBro|wse {} {|
|00000140| 0d 09 69 66 20 7b 5b 6c | 69 6e 65 53 74 61 72 74 |..if {[l|ineStart|
|00000150| 20 5b 67 65 74 50 6f 73 | 5d 5d 20 3e 20 30 7d 20 | [getPos|]] > 0} |
|00000160| 7b 0d 09 09 73 65 6c 65 | 63 74 20 5b 67 65 74 50 |{...sele|ct [getP|
|00000170| 6f 73 5d 0d 09 09 70 72 | 65 76 69 6f 75 73 4c 69 |os]...pr|eviousLi|
|00000180| 6e 65 0d 09 7d 20 0d 09 | 73 65 6c 65 63 74 20 5b |ne..} ..|select [|
|00000190| 6c 69 6e 65 53 74 61 72 | 74 20 5b 67 65 74 50 6f |lineStar|t [getPo|
|000001a0| 73 5d 5d 20 5b 6e 65 78 | 74 4c 69 6e 65 53 74 61 |s]] [nex|tLineSta|
|000001b0| 72 74 20 5b 67 65 74 50 | 6f 73 5d 5d 0d 7d 0d 62 |rt [getP|os]].}.b|
|000001c0| 69 6e 64 20 75 70 20 75 | 70 42 72 6f 77 73 65 20 |ind up u|pBrowse |
|000001d0| 42 52 57 5a 0d 0d 70 72 | 6f 63 20 64 6f 77 6e 42 |BRWZ..pr|oc downB|
|000001e0| 72 6f 77 73 65 20 7b 7d | 20 7b 0d 09 69 66 20 7b |rowse {}| {..if {|
|000001f0| 5b 6e 65 78 74 4c 69 6e | 65 53 74 61 72 74 20 5b |[nextLin|eStart [|
|00000200| 67 65 74 50 6f 73 5d 5d | 20 21 3d 20 5b 6d 61 78 |getPos]]| != [max|
|00000210| 50 6f 73 5d 7d 20 7b 0d | 09 09 73 65 6c 65 63 74 |Pos]} {.|..select|
|00000220| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 09 6e 65 78 74 | [getPos|]...next|
|00000230| 4c 69 6e 65 0d 09 7d 0d | 09 73 65 6c 65 63 74 20 |Line..}.|.select |
|00000240| 5b 6c 69 6e 65 53 74 61 | 72 74 20 5b 67 65 74 50 |[lineSta|rt [getP|
|00000250| 6f 73 5d 5d 20 5b 6e 65 | 78 74 4c 69 6e 65 53 74 |os]] [ne|xtLineSt|
|00000260| 61 72 74 20 5b 67 65 74 | 50 6f 73 5d 5d 0d 7d 0d |art [get|Pos]].}.|
|00000270| 62 69 6e 64 20 64 6f 77 | 6e 20 64 6f 77 6e 42 72 |bind dow|n downBr|
|00000280| 6f 77 73 65 20 42 52 57 | 5a 0d 0d 0d 0d 70 72 6f |owse BRW|Z....pro|
|00000290| 63 20 67 6f 74 6f 45 72 | 72 6f 72 20 7b 7d 20 7b |c gotoEr|ror {} {|
|000002a0| 0d 09 73 65 74 20 74 65 | 78 74 20 5b 67 65 74 54 |..set te|xt [getT|
|000002b0| 65 78 74 20 5b 6c 69 6e | 65 53 74 61 72 74 20 5b |ext [lin|eStart [|
|000002c0| 67 65 74 50 6f 73 5d 5d | 20 5b 6e 65 78 74 4c 69 |getPos]]| [nextLi|
|000002d0| 6e 65 53 74 61 72 74 20 | 5b 67 65 74 50 6f 73 5d |neStart |[getPos]|
|000002e0| 5d 5d 0d 09 73 65 74 20 | 6c 69 6e 65 20 5b 6c 69 |]]..set |line [li|
|000002f0| 6e 64 65 78 20 24 74 65 | 78 74 20 33 5d 0d 09 73 |ndex $te|xt 3]..s|
|00000300| 65 74 20 65 72 72 20 5b | 6c 69 6e 64 65 78 20 24 |et err [|lindex $|
|00000310| 74 65 78 74 20 35 5d 0d | 09 73 65 74 20 66 6e 61 |text 5].|.set fna|
|00000320| 6d 65 20 5b 6c 69 6e 64 | 65 78 20 24 74 65 78 74 |me [lind|ex $text|
|00000330| 20 36 5d 0d 09 69 66 20 | 7b 5b 65 78 70 72 20 7b | 6]..if |{[expr {|
|00000340| 5b 6c 73 65 61 72 63 68 | 20 5b 77 69 6e 4e 61 6d |[lsearch| [winNam|
|00000350| 65 73 20 2d 66 5d 20 24 | 66 6e 61 6d 65 5d 20 3e |es -f] $|fname] >|
|00000360| 3d 20 30 7d 5d 7d 20 7b | 0d 09 09 62 72 69 6e 67 |= 0}]} {|...bring|
|00000370| 54 6f 46 72 6f 6e 74 20 | 24 66 6e 61 6d 65 0d 09 |ToFront |$fname..|
|00000380| 7d 20 65 6c 73 65 20 7b | 0d 09 09 65 64 69 74 20 |} else {|...edit |
|00000390| 24 66 6e 61 6d 65 0d 09 | 7d 0d 09 73 65 74 20 70 |$fname..|}..set p|
|000003a0| 6f 73 20 5b 72 6f 77 43 | 6f 6c 54 6f 50 6f 73 20 |os [rowC|olToPos |
|000003b0| 24 6c 69 6e 65 20 30 5d | 0d 09 73 65 6c 65 63 74 |$line 0]|..select|
|000003c0| 20 24 70 6f 73 20 5b 6e | 65 78 74 4c 69 6e 65 53 | $pos [n|extLineS|
|000003d0| 74 61 72 74 20 24 70 6f | 73 5d 0d 7d 0d 62 69 6e |tart $po|s].}.bin|
|000003e0| 64 20 27 5c 72 27 09 09 | 67 6f 74 6f 45 72 72 6f |d '\r'..|gotoErro|
|000003f0| 72 09 42 52 57 5a 0d 62 | 69 6e 64 20 65 6e 74 65 |r.BRWZ.b|ind ente|
|00000400| 72 09 09 67 6f 74 6f 45 | 72 72 6f 72 09 42 52 57 |r..gotoE|rror.BRW|
|00000410| 5a 0d 0d 70 72 6f 63 20 | 6e 65 78 74 45 72 72 6f |Z..proc |nextErro|
|00000420| 72 20 7b 7d 20 7b 0d 09 | 64 6f 77 6e 42 72 6f 77 |r {} {..|downBrow|
|00000430| 73 65 0d 09 67 6f 74 6f | 45 72 72 6f 72 0d 7d 0d |se..goto|Error.}.|
|00000440| 0d 70 72 6f 63 20 70 72 | 65 76 69 6f 75 73 45 72 |.proc pr|eviousEr|
|00000450| 72 6f 72 20 7b 7d 20 7b | 0d 09 75 70 42 72 6f 77 |ror {} {|..upBrow|
|00000460| 73 65 0d 09 67 6f 74 6f | 45 72 72 6f 72 0d 7d 0d |se..goto|Error.}.|
|00000470| 0d 6d 65 6e 75 20 2d 6e | 20 42 72 6f 77 73 65 20 |.menu -n| Browse |
|00000480| 7b 0d 09 22 67 6f 74 6f | 45 72 72 6f 72 22 0d 09 |{.."goto|Error"..|
|00000490| 22 6e 65 78 74 45 72 72 | 6f 72 22 0d 09 22 70 72 |"nextErr|or".."pr|
|000004a0| 65 76 69 6f 75 73 45 72 | 72 6f 72 22 0d 7d 0d 0d |eviousEr|ror".}..|
|000004b0| 70 72 6f 63 20 73 65 74 | 42 72 6f 77 73 65 4d 6f |proc set|BrowseMo|
|000004c0| 64 65 20 7b 7d 20 7b 0d | 09 63 68 61 6e 67 65 4d |de {} {.|.changeM|
|000004d0| 6f 64 65 20 22 42 52 57 | 5a 22 0d 09 69 6e 73 65 |ode "BRW|Z"..inse|
|000004e0| 72 74 4d 65 6e 75 09 22 | 42 72 6f 77 73 65 22 0d |rtMenu."|Browse".|
|000004f0| 7d 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |}.......|........|
|00000500| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000510| 01 32 80 00 00 00 00 00 | 00 4a 01 3d 00 7d 02 0b |.2......|.J.=.}..|
|00000520| 80 00 00 00 00 00 00 8a | 01 3d 00 cf 02 0b 80 00 |........|.=......|
|00000530| 0b 62 72 6f 77 73 65 72 | 2e 74 63 6c 02 00 00 00 |.browser|.tcl....|
|00000540| 50 61 72 74 53 49 54 21 | 00 00 00 00 00 00 00 00 |PartSIT!|........|
|00000550| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 a9 b0 91 99 00 00 | 00 00 00 00 01 7e 73 00 |........|.....~s.|
|00000580| 00 00 00 00 00 0b 00 c6 | 00 39 01 a9 c0 02 00 80 |........|.9......|
|00000590| 00 00 00 00 00 a6 01 5b | 00 b3 01 fc c0 02 00 81 |.......[|........|
|000005a0| 00 00 00 00 00 96 01 5b | 00 9f 01 f3 c0 02 00 82 |.......[|........|
|000005b0| 00 00 00 00 00 ba 01 5b | 00 c6 01 ff c0 02 00 83 |.......[|........|
|000005c0| 00 00 00 10 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000005d0| ff ff cc cc 00 00 00 30 | 00 00 00 00 00 00 00 04 |.......0|........|
|000005e0| 00 00 dd dd dd dd dd dd | 00 01 00 00 00 00 00 00 |........|........|
|000005f0| 00 02 00 00 00 00 00 00 | 00 03 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 9c |...H..Mo|naco....|
|00000610| ec ea 00 91 65 82 00 00 | 00 6b 00 8e a1 50 00 94 |....e...|.k...P..|
|00000620| c0 9c 00 97 48 d8 00 04 | 00 04 00 28 00 03 01 dd |....H...|...(....|
|00000630| 02 01 00 28 00 03 01 dd | 02 01 00 0d 39 0d 00 00 |...(....|....9...|
|00000640| 04 68 00 00 04 6e 00 00 | 02 0d 01 00 00 00 01 00 |.h...n..|........|
|00000650| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 8d d7 e8 |...L...L|...2....|
|00000660| 0c 20 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |. .....2|..MPSR..|
|00000670| 00 0a 03 ed ff ff 00 00 | 00 00 00 94 bc d8 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+